home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programmer's Power Pack / Delphi Volume 1.iso / s_to_z / wmapdemo / data.z / ADJGRID.PAS < prev    next >
Pascal/Delphi Source File  |  1996-03-06  |  1KB  |  57 lines
  1. unit Adjgrid;
  2.  
  3. interface
  4.  
  5. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, Buttons,
  6.   StdCtrls, ExtCtrls, Sysutils;
  7.  
  8. type
  9.   TGridDlg = class(TForm)
  10.     OKBtn: TBitBtn;
  11.     CancelBtn: TBitBtn;
  12.     HelpBtn: TBitBtn;
  13.     Bevel1: TBevel;
  14.     Edit1: TEdit;
  15.     Label1: TLabel;
  16.     Label2: TLabel;
  17.     Edit2: TEdit;
  18.     procedure OKBtnClick(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.     phgap : ^integer;
  22.     pvgap : ^integer;
  23.   public
  24.     { Public declarations }
  25.     constructor Create(AOwner:TComponent; var hgap,vgap : integer);
  26.   end;
  27.  
  28. var
  29.   GridDlg: TGridDlg;
  30.  
  31. implementation
  32.  
  33. {$R *.DFM}
  34. constructor TGridDlg.Create(AOwner:TComponent; var hgap,vgap : integer);
  35. begin
  36.   inherited Create(AOwner);
  37.   phgap := Addr(hgap);
  38.   pvgap := Addr(vgap);
  39.   Edit1.text := inttostr(hgap);
  40.   Edit2.text := inttostr(vgap);
  41. end;
  42.  
  43. procedure TGridDlg.OKBtnClick(Sender: TObject);
  44. begin
  45.   try
  46.     phgap^ := strtoint(Edit1.text);
  47.     pvgap^ := strtoint(Edit2.text);
  48.   except
  49.     On EConvertError do begin
  50.       ActiveControl := edit1;
  51.       modalresult := mrNone;
  52.     end;
  53.   end;
  54. end;
  55.  
  56. end.
  57.